source('callbacks.R')
dat = read.csv("cell-output.csv", skip=6, header = TRUE)
dat$run.counter = 1
selected_dat <- dat
p = plot_viz_x('X.step.', 'percent.burned', 'density', '')
